From: Michaël Cadilhac <michael.cadilhac@lrde.org>
Date: Fri, 17 Aug 2007 10:10:00 +0000 (+0000)
Subject: (report-emacs-bug): Remove the last number of `emacs-version', use the
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17365
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=42445ed6ab264aaef21d71b0310767b4d142006d;p=emacs.git

(report-emacs-bug): Remove the last number of `emacs-version', use the
topic prefix ``version; ''.
---

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 8a11dc90cc4..89ac6dea0bb 100644
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -75,7 +75,8 @@ Prompts for bug subject.  Leaves you in a mail buffer."
   (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
   ;; The syntax `version;' is preferred to `[version]' because the
   ;; latter could be mistakenly stripped by mailing software.
-  (setq topic (concat "Bug: " emacs-version "; " topic))
+  (when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
+    (setq topic (concat (match-string 1 emacs-version) "; " topic)))
   ;; If there are four numbers in emacs-version, this is a pretest
   ;; version.
   (let* ((pretest-p (string-match "\\..*\\..*\\." emacs-version))